(copy-region-as-kill): Set deactivate-mark

instead of clearing mark-active directly.

diff --git a/lisp/simple.el b/lisp/simple.el
index be60e3c8f73bc2022a64df773888a69306a123a2..42ef85aa870236d8cfd5e8fc656a7c010a49ad3b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1661,7 +1661,7 @@ system cut and paste."
       (kill-append (buffer-substring beg end) (< end beg))
     (kill-new (buffer-substring beg end)))
   (if transient-mark-mode 
-      (setq mark-active nil))
+      (setq deactivate-mark t))
   nil)
 
 (defun kill-ring-save (beg end)